home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat115 / budget_.install next >
Text File  |  1995-11-23  |  4KB  |  150 lines
  1.  
  2. IF exists ram:tempo
  3.    Echo "Ram:tempo existe...!"
  4.    Quit
  5. ENDIF
  6.  
  7.  
  8. resident sys:c/copy force
  9. Copy LHarc ram:
  10. Set OldCd `Cd`
  11. Failat 21
  12. Cd >NIL: /
  13. Cd >NIL: /
  14. Cd >NIL: /
  15. Failat 10
  16. Set tvx `Cd`
  17. Cd Ram:
  18.  
  19. IF exists LHarc
  20.    LHarc -m e `Get oldCd`Budget_.Lharc
  21. ELSE
  22.    LLSC:LHarc -m e `Get oldCd`Budget_.Lharc
  23. ENDIF
  24.  
  25. Copy "Sys:Utilities.info" "Ram:Tempo/"
  26. Copy "Sys:tools.info" "Ram:Tempo/"
  27. Copy "Sys:C/IconX" "Ram:Tempo/C/"
  28. Copy "Sys:C/assign" "Ram:Tempo/C/"
  29. Copy "Sys:C/Run" "Ram:Tempo/C/"
  30. Copy "Sys:C/Else" "Ram:Tempo/C/"
  31. Copy "Sys:C/Delete" "Ram:Tempo/C/"
  32. Copy "Sys:C/Type" "Ram:Tempo/C/"
  33. Copy "Sys:C/endcli" "Ram:Tempo/C/"
  34. Copy "Sys:C/Rename" "Ram:Tempo/C/"
  35. Copy "Sys:C/failat" "Ram:Tempo/C/"
  36. Copy "Sys:C/Execute" "Ram:Tempo/C/"
  37. Copy "Sys:C/Copy" "Ram:Tempo/C/"
  38. Copy "Sys:C/list" "Ram:Tempo/C/"
  39. Copy "Sys:C/cd" "Ram:Tempo/C/"
  40. Copy "Sys:C/Date" "Ram:Tempo/C/"
  41. Copy "Sys:C/endif" "Ram:Tempo/C/"
  42. Copy "Sys:C/if" "Ram:Tempo/C/"
  43. Copy "Sys:C/loadWB" "Ram:Tempo/C/"
  44. Copy "Sys:C/SetClock" "Ram:Tempo/C/"
  45. Copy "Sys:C/version" "Ram:Tempo/C/"
  46. Copy "Sys:SYSTEM/SetMap" "Ram:Tempo/SYSTEM/"
  47. Copy "Sys:SYSTEM/CLi" "Ram:Tempo/SYSTEM/"
  48. Copy "Sys:L/port-handler" "Ram:Tempo/L/"
  49. Copy "Sys:DEVS/system-configuration" "Ram:Tempo/DEVS/"
  50. Copy "Sys:DEVS/serial.device" "Ram:Tempo/DEVS/"
  51. Copy "Sys:DEVS/parallel.device" "Ram:Tempo/DEVS/"
  52. Copy "Sys:DEVS/printer.device" "Ram:Tempo/DEVS/"
  53. Copy "Sys:DEVS/keymaps/f" "Ram:Tempo/DEVS/keymaps/"
  54. Copy "Sys:DEVS/Printers/generic" "Ram:Tempo/DEVS/Printers/"
  55. Copy "Sys:LIBS/asl.library" "Ram:Tempo/LIBS/"
  56. Copy "Sys:LIBS/mathieeedoubbas.library" "Ram:Tempo/LIBS/"
  57. Copy "Sys:LIBS/version.library" "Ram:Tempo/LIBS/"
  58. Copy "Sys:LIBS/diskfont.library" "Ram:Tempo/LIBS/"
  59. Copy "Sys:LIBS/mathieeedoubtrans.library" "Ram:Tempo/LIBS/"
  60. Copy "Sys:Utilities/more" "Ram:Tempo/Utilities/"
  61. Copy "Sys:Utilities/More.info" "Ram:Tempo/Utilities/"
  62.  
  63. Echo ""
  64. Echo "Les *"objets non trouvé*" (éventuellement ci-dessus) sont sans" 
  65. Echo "conséquences s'ils correspondent à des commandes résidentes."
  66.  
  67.  
  68. IF exists tempo/lib.llsc/requete
  69.    Copy tempo/lib.llsc/requete ram:
  70.    tempo/lib.llsc/requete 0 " Création de Budget_ dans un : " " Disque en Df0: | Tiroir en RAM: " 
  71.    IF $RC EQ 0
  72.       IF exists ram:Budget_
  73.          Rename ram:Budget_ as ram:Budget_.bkk
  74.       endif
  75.       Rename ram:tempo as ram:Budget_
  76.       Copy Sys:system.info ram:Budget_.info
  77.       Skip finir
  78.    ENDIF
  79. else
  80.    Echo "Pas trouvé tempo/lib.llsc/requete"
  81.    Wait 2 sec
  82.    skip quitte
  83. endif
  84.  
  85. Cd Df0:
  86. Set df0 `Cd`
  87. Cd RAM:
  88. IF $tvx EQ $df0
  89.    tempo/lib.llsc/requete 0 " Le disque en Df0: est $df0 ! " " Continuer "
  90. endif
  91.  
  92. list >ram:testyuiop df0: DIRS
  93. setenv ram:ttyuiop `search ram:testyuiop "is empty"`
  94. if not exists ram:ttyuiop
  95.    Echo ""
  96.    Echo "Formatage...en cours"
  97.    Failat 21
  98.    Lab refaire
  99.    SYS:SYSTEM/Format <NIL: >NIL: DRIVE DF0: NAME Budget_ NOICONS
  100.    Set erreur $Result2
  101.    If $erreur GT 0 VAL
  102.       IF $Erreur EQ 214 VAL
  103.           tempo/LIB.LLSC/Requete 0 " Le disque destination est protégé! " " Refaire | Quitter "
  104.           Set action $RC
  105.       else
  106.           IF $Erreur EQ 226 VAL
  107.              tempo/LIB.LLSC/Requete 0 " Pas de disque destination dans le lecteur! " " Refaire | Quitter "
  108.              Set action $RC
  109.           else
  110.              tempo/LIB.LLSC/Requete 0 "Interruption Format sur erreur N°:$Erreur " " Refaire | Quitter "
  111.              Set action $RC
  112.           endif
  113.       endif
  114.       IF $action EQ 1
  115.          Skip refaire back
  116.       else
  117.          Skip quitte
  118.       endif
  119.    endif
  120. else
  121.    Delete >NIL: ram:(testyuiop|ttyuiop)
  122. endif
  123.  
  124.  
  125. Echo ""
  126. Copy tempo df0: ALL
  127.  
  128. if exists df0:s/Startup-Sequence
  129.    Install df0:
  130. endif
  131.  
  132. Protect >NIL: ram:tempo/#? rwed all
  133. Delete >NIL: ram:tempo ALL
  134.  
  135.  
  136. Lab finir
  137. ram:Requete 0 " ****** Installation Budget_ terminé ****** " " Vu... "
  138.  
  139. Lab quitte
  140. Delete >NIL: ram:(LHarc|Requete)
  141. Unset tvx
  142. Unset df0
  143. Unset oldCd
  144. unset erreur
  145. unset action
  146.  
  147. Wait 2 sec
  148. Run <NIL: >NIL: wait 3 sec +
  149. Delete ram:Command-00-T#?
  150.